﻿Public Partial Class WFrm_Alternativa_Seleccion_Unica_SinImagen
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            ViewState("usuario") = Request("usuario")
            ViewState("K_TIPO_PREGUNTA") = Request("K_TIPO_PREGUNTA")
            ViewState("K_PREGUNTA") = Request("K_PREGUNTA")

            Caga_Inicial()
            CargarRespuestas()
        End If


    End Sub
    Sub Caga_Inicial()
        For i = 1 To 100
            Dim item As New ListItem
            item.Value = i
            item.Text = i
            i_puntos.Items.Add(item)
            i_puntos.UpdateAfterCallBack = True
        Next
    End Sub
    Sub CargarRespuestas()
        Dim Execute As New CLS_DISENIO_ALTERNATIVA
        Dim rp As New DotNetResponse.SQLPersistence

        Execute.GetAlternativa(rp, ViewState("K_PREGUNTA"))

        Grid_Respuestas.DataSource = rp.DtTable
        Grid_Respuestas.DataBind()
        Grid_Respuestas.UpdateAfterCallBack = True
    End Sub
    Protected Sub Btn_Agregar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Btn_Agregar.Click
        'revisar si ya seleccionó otro registro con s_correcta = true
        Dim i As Integer

        For i = 0 To Grid_Respuestas.Rows.Count - 1
            If Grid_Respuestas.Rows(i).Cells(10).Text = "" Then
                Exit Sub
            End If
        Next
        Dim Execute As New CLS_DISENIO_ALTERNATIVA
        Dim rp As New DotNetResponse.SQLPersistence


        Execute.AddAlternativa(rp, 0, ViewState("K_TIPO_PREGUNTA"), ViewState("K_PREGUNTA"), i_fila.SelectedValue, s_r1.Text, s_r2.Text, s_r3.Text, s_r4.Text, s_r5.Text, s_correcta.Checked, i_puntos.SelectedValue, Nothing, Nothing, Nothing, Nothing, Nothing, ViewState("usuario"), ViewState("usuario"), Now, Now)

        Grid_Respuestas.DataSource = rp.DtTable
        Grid_Respuestas.DataBind()
        Grid_Respuestas.UpdateAfterCallBack = True

    End Sub
End Class